home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / lgrammar / src / xui.c < prev   
C/C++ Source or Header  |  1993-09-09  |  50KB  |  1,765 lines
  1. /*************************************************************************/
  2. /*
  3.  *
  4.  *  Filename:  xui.c
  5.  *
  6.  */
  7.  
  8. #include "grammar.h"
  9. #include <sys/param.h>
  10.  
  11. #include <malloc.h>
  12. #include <math.h>
  13. #include <stdio.h>
  14. #include <ctype.h>
  15.  
  16. #include <X11/Intrinsic.h>
  17. #include <X11/StringDefs.h>
  18. #include <X11/Shell.h>
  19.  
  20.  
  21.  
  22. /* Include files required for widgets used in this file */
  23.  
  24. #include <X11/Xaw/AsciiText.h>
  25. #include <X11/Xaw/Box.h>
  26. #include <X11/Xaw/Cardinals.h>
  27. #include <X11/Xaw/Command.h>
  28. #include <X11/Xaw/Dialog.h>
  29. #include <X11/Xaw/Form.h>
  30. #include <X11/Xaw/Label.h>
  31. #include <X11/Xaw/List.h>
  32. #include <X11/Xaw/Paned.h>
  33. #include <X11/Xaw/Text.h>
  34. #include <X11/Xaw/Viewport.h>
  35.  
  36.  
  37. /* aus load.c */
  38.  
  39. extern void Load();
  40. extern void ClickList();
  41. extern void LoadOk();
  42. extern void LoadCancel();
  43.  
  44.  
  45. /* aus save.c */
  46.  
  47. extern void SaveOReturnOk();
  48. extern void SaveObj();
  49.  
  50. extern Widget fileinput;
  51.  
  52.  
  53. /* aus color.c */
  54.  
  55. extern char  *col_pal_name;
  56. extern XColor owncolor[NOC];
  57.  
  58. extern void     Color();
  59. extern void     init_color();
  60. extern void     change_color();
  61.  
  62.  
  63. /* aus functions.c */
  64.  
  65. extern REGELN  *init_grammar();
  66. extern char    *word_to_string();
  67. extern int      test_dimens();
  68. extern SYMBOLE *delete_wordlist();
  69. extern REGELN  *delete_grammarlist();
  70. extern int      klammerung();
  71. extern int      test_wk();
  72.  
  73.  
  74. /* aus grammar.c */
  75.  
  76. extern int     klammern_pruefen();
  77. extern void    init_word();
  78. extern void    ableitung_wort();
  79. extern void    ableitung_symbol();
  80.  
  81.  
  82. /* aus turtle.c */
  83.  
  84. extern void    init_drawing();
  85. extern void    turtle_2D();
  86. extern void    turtle_3D();
  87.  
  88. extern Display  *display;
  89. extern int       screen;
  90. extern GC        draw_gc;
  91. extern Pixmap    draw_pixmap;
  92. extern Dimension draw_width, draw_height;
  93.  
  94.  
  95. /* functions in xui.c */
  96.  
  97. void RestorePicture();
  98. void Dummy();
  99. void syntax();
  100. void Help();
  101. void HelpOk();
  102. void G3D();
  103. void Proj();
  104. void ProjOk();
  105. void ProjCancel();
  106. void GOk();
  107. void GStop();
  108. void display_deriv();
  109. void display_word();
  110. void Fehler();
  111. void NextDeriv();
  112. void PrevDeriv();
  113. void SingleSymbol();
  114. void ContinueSymbol();
  115. void Save();
  116. void SaveSReturnOk();
  117. void SaveOk();
  118. void SaveCancel();
  119. void SaveImage();
  120. void Quit();
  121.  
  122. void save_settings_to_file();
  123.  
  124.  
  125. /* global variables */
  126.  
  127. REGELN *grammar = NULL;
  128.  
  129. SYMBOLE *word = NULL,
  130.         *current_symbol = NULL;
  131.  
  132. Boolean anhalten = FALSE; /* used once here */
  133.  
  134. String *str = NULL; /*enthaelt abgeleitete Symbole fuer Anzeige in wlist */
  135.  
  136. int count_deriv;  /* zaehlt die Ableitungen */
  137.  
  138. int dimens; /* 2D- oder 3D-Symbole in Grammatik */
  139.  
  140. TURTLE_VALUES *turtle; /* Struktur, die Turtle-Eingabewerte enthaelt */
  141.  
  142. int persp_x0, persp_y0,  /* Koordinatenursprung der Bildkoordinaten */
  143.     persp_a;             /* Zentrum der perspektivischen Projektion */
  144.  
  145.  
  146. int color_index; /* used once here */
  147.  
  148.  
  149.  
  150. Widget topLevel;
  151.  
  152. Widget drawing; /* Widget zur Ausgabe der erstellten Bilder */
  153.  
  154. Widget wlist;
  155. Widget wderiv;
  156.  
  157. Widget g_posx, g_posy, g_posz,
  158.        g_angle,
  159.        g_length,
  160.        g_scale,
  161.        g_proj,
  162.        g_3d,
  163.        glabel,
  164.        gram;
  165.  
  166. Widget g_headx, g_heady, g_headz,
  167.        g_leftx, g_lefty, g_leftz,
  168.        g_upx, g_upy, g_upz;
  169.  
  170. Widget proj_x0, proj_y0, proj_a;
  171.  
  172. Widget g_stop, g_ok;
  173.  
  174. Widget nextderiv, prevderiv,
  175.        singlesymbol, continuesymbol;
  176.  
  177. Widget save;
  178. Widget savesett;
  179.  
  180.  
  181. XtAppContext app_context;
  182.  
  183. static String fallback_resources[] = {
  184.  "*savesett.value.translations: #override \\n <Key>Return:SaveSReturnOk()",
  185.  "*fileinput.value.translations:#override \\n <Key>Return:SaveOReturnOk()",
  186.  NULL
  187. };
  188.  
  189. XtActionsRec actionTable[] = {
  190.     {"SaveSReturnOk", SaveSReturnOk},
  191.     {"SaveOReturnOk", SaveOReturnOk},
  192.  NULL
  193. };
  194.  
  195. double CO[361], SI[361]; /* just calculated here, but not used */
  196.  
  197. /*************************************************************************/
  198. void main(argc, argv)
  199. int argc;
  200. char **argv;
  201. {
  202.    Widget paned,       /* 1.Widget, zur Ein-/Ausgabe der Daten */ 
  203.           popup;       /* 2.Widget, enthaelt Widget drawing */
  204.  
  205.    Widget wform,       /* Widget zur Ausgabe des aktuellen Wortes */
  206.           wlabel,
  207.           wview,
  208.           wderivlabel;  
  209.  
  210.    Widget gform,       /* Widget zur Ein-/Ausgabe der Grammatik */
  211.           gpform,
  212.           gtform,
  213.           gbform,
  214.           g_color,
  215.           g_help;
  216.  
  217.    Widget buttonform,  /* Widget, welches die Buttons enthaelt */
  218.           quit,
  219.           load;
  220.  
  221.    static XtActionsRec neu_wlist[] = { {"dummy", Dummy}, };
  222.  
  223.  
  224.    int i;             /* Schleifenvariable */
  225.    double winkel;     /* Winkel im Bogenmass */
  226.  
  227.   /**************************************************************/
  228.    topLevel = XtVaAppInitialize(
  229.            &app_context,             /* Application context */
  230.            "LGrammar",               /* Application class */
  231.            NULL, 0,                  /* command line option list */
  232.            &argc, argv,              /* command line args */
  233.            fallback_resources,       /* appl-defaults */
  234.            NULL);                    /* terminate varargs list */
  235.  
  236.    XtAppAddActions(app_context, actionTable, XtNumber(actionTable));
  237.  
  238.    if (argc != 1) syntax(app_context, argv[0]);
  239.  
  240.    paned = XtVaCreateManagedWidget(
  241.            "paned",             /* arbitrary widget name */
  242.            panedWidgetClass,    /* widget class from Paned.h */ 
  243.            topLevel,            /* parent widget */
  244.            NULL);               /* terminate varargs list */ 
  245.  
  246.    popup = XtVaCreatePopupShell(
  247.            "lgrammar_drawing",  /* arbitrary widget name */
  248.            topLevelShellWidgetClass,   /* Widget class */
  249.            topLevel,            /* parent widget */
  250.            NULL);               /* terminat varargs list */
  251.  
  252.    drawing = XtVaCreateManagedWidget(       
  253.            "drawing",           /* widget name */
  254.            widgetClass,         /* widget class */
  255.            popup,               /* parent widget */
  256.            NULL);               /* terminate varargs list */
  257.  
  258.    XtAddEventHandler(
  259.            drawing,             /* widget name */
  260.            ExposureMask,        /* event_mask */
  261.            FALSE,               /* nonmaskable */
  262.            RestorePicture,      /* handler */
  263.            NULL);               /* client_data */
  264.  
  265.   /**************************************************************/
  266.    wform = XtVaCreateManagedWidget(       
  267.            "wform",             /* widget name */
  268.            formWidgetClass,     /* widget class from Form.h */
  269.            paned,               /* parent widget */
  270.            NULL);               /* terminate varargs list */
  271.  
  272.    wlabel = XtVaCreateManagedWidget(
  273.            "wlabel",            /* widget name */
  274.            labelWidgetClass,    /* widget class from Label.h */
  275.            wform,               /* parent widget */
  276.            NULL);               /* terminate varargs list */
  277.  
  278.    wview = XtVaCreateManagedWidget(
  279.            "wview",             /* widget name */
  280.            viewportWidgetClass, /* widget class from Viewport.h */
  281.            wform,               /* parent widget */
  282.            NULL);               /* terminate varargs list */ 
  283.  
  284.    wlist = XtVaCreateManagedWidget(
  285.            "wlist",             /* widget name */
  286.            listWidgetClass,     /* widget class from List.h */
  287.            wview,               /* parent widget */
  288.            NULL);               /* terminate varags list */
  289.  
  290.    /* wlist erhaelt neue Funktion ueber translation table */
  291.    XtAppAddActions(app_context, neu_wlist, XtNumber(neu_wlist));
  292.  
  293.    /* wlist soll zu Beginn leer sein */
  294.    str = (String *) XtRealloc((char *)str, sizeof(String) * 1);
  295.    if (str == NULL)
  296.    {
  297.      fprintf(stderr, "Kein Speicher mehr frei!\n");
  298.      fprintf(stderr, "XtRealloc-Aufruf in main\n");
  299.      exit(1);
  300.    }
  301.    str[0] = XtNewString(" ");
  302.    XawListChange(wlist, str, 1, 0, TRUE);
  303.  
  304.    wderivlabel = XtVaCreateManagedWidget(
  305.            "wderivlabel",       /* widget name */
  306.            labelWidgetClass,    /* widget class from Label.h */
  307.            wform,               /* parent widget */
  308.            NULL);               /* terminate varargs list */           
  309.  
  310.    wderiv = XtVaCreateManagedWidget(
  311.            "wderiv",            /* widget name */
  312.            labelWidgetClass,    /* widget class from Label.h */
  313.            wform,               /* parent widget */
  314.            NULL);               /* terminate varargs list */
  315.  
  316.   /**************************************************************/
  317.  
  318.    gform = XtVaCreateManagedWidget(       
  319.            "gform",             /* widget name */
  320.            formWidgetClass,     /* widget class from Form.h */
  321.            paned,               /* parent widget */
  322.            NULL);               /* terminate varargs list */
  323.  
  324.    gpform = XtVaCreateManagedWidget(
  325.            "gpform",            /* widget name */
  326.            formWidgetClass,     /* widgetClass from Form.h */
  327.            gform,               /* parent widget */
  328.            NULL);
  329.  
  330.    g_posx = XtVaCreateManagedWidget(
  331.            "g_posx",            /* widget name */
  332.            dialogWidgetClass,   /* widget class from Dialog.h */
  333.            gpform,              /* parent widget */
  334.            NULL);               /* terminate varargs list */  
  335.  
  336.    g_posy = XtVaCreateManagedWidget(
  337.            "g_posy",            /* widget name */
  338.            dialogWidgetClass,   /* widget class from Dialog.h */
  339.            gpform,              /* parent widget */
  340.            NULL);               /* terminate varargs list */  
  341.  
  342.    g_posz = XtVaCreateManagedWidget(
  343.            "g_posz",            /* widget name */
  344.            dialogWidgetClass,   /* widget class from Dialog.h */
  345.            gpform,              /* parent widget */
  346.            NULL);               /* terminate varargs list */  
  347.    XtSetSensitive(g_posz, FALSE);
  348.  
  349.    g_angle = XtVaCreateManagedWidget(
  350.            "g_angle",           /* widget name */
  351.            dialogWidgetClass,   /* widget class from Dialog.h */
  352.            gpform,              /* parent widget */
  353.            NULL);               /* terminate varargs list */  
  354.  
  355.    g_length = XtVaCreateManagedWidget(
  356.            "g_length",          /* widget name */
  357.            dialogWidgetClass,   /* widget class from Dialog.h */
  358.            gpform,              /* parent widget */
  359.            NULL);               /* terminate varargs list */  
  360.  
  361.    g_scale = XtVaCreateManagedWidget(
  362.            "g_scale",           /* widget name */
  363.            dialogWidgetClass,   /* widget class from Dialog.h */
  364.            gpform,              /* parent widget */
  365.            NULL);               /* terminate varargs list */
  366.  
  367.    gtform = XtVaCreateManagedWidget(       
  368.            "gtform",            /* widget name */
  369.            formWidgetClass,     /* widget class from Form.h*/
  370.            gform,               /* parent widget */
  371.            NULL);               /* terminate varargs list */
  372.  
  373.  
  374.    g_headx = XtVaCreateManagedWidget(
  375.            "g_headx",           /* widget name */
  376.            dialogWidgetClass,   /* widget class from Dialog.h */
  377.            gtform,              /* parent widget */
  378.            NULL);               /* terminate varargs list */  
  379.  
  380.    g_heady = XtVaCreateManagedWidget(
  381.            "g_heady",           /* widget name */
  382.            dialogWidgetClass,   /* widget class from Dialog.h */
  383.            gtform,              /* parent widget */
  384.            NULL);               /* terminate varargs list */
  385.  
  386.    g_headz = XtVaCreateManagedWidget(
  387.            "g_headz",           /* widget name */
  388.            dialogWidgetClass,   /* widget class from Dialog.h */
  389.            gtform,              /* parent widget */
  390.            NULL);               /* terminate varargs list */  
  391.    XtSetSensitive(g_headz, FALSE);
  392.  
  393.    g_leftx = XtVaCreateManagedWidget(
  394.            "g_leftx",           /* widget name */
  395.            dialogWidgetClass,   /* widget class from Dialog.h */
  396.            gtform,              /* parent widget */
  397.            NULL);               /* terminate varargs list */  
  398.    XtSetSensitive(g_leftx, FALSE);
  399.  
  400.    g_lefty = XtVaCreateManagedWidget(
  401.            "g_lefty",           /* widget name */
  402.            dialogWidgetClass,   /* widget class from Dialog.h */
  403.            gtform,              /* parent widget */
  404.            NULL);               /* terminate varargs list */  
  405.    XtSetSensitive(g_lefty, FALSE);
  406.  
  407.    g_leftz = XtVaCreateManagedWidget(
  408.            "g_leftz",           /* widget name */
  409.            dialogWidgetClass,   /* widget class from Dialog.h */
  410.            gtform,              /* parent widget */
  411.            NULL);               /* terminate varargs list */  
  412.    XtSetSensitive(g_leftz, FALSE);
  413.  
  414.    g_upx = XtVaCreateManagedWidget(
  415.            "g_upx",             /* widget name */
  416.            dialogWidgetClass,   /* widget class from Dialog.h */
  417.            gtform,              /* parent widget */
  418.            NULL);               /* terminate varargs list */  
  419.    XtSetSensitive(g_upx, FALSE);
  420.  
  421.    g_upy = XtVaCreateManagedWidget(
  422.            "g_upy",             /* widget name */
  423.            dialogWidgetClass,   /* widget class from Dialog.h */
  424.            gtform,              /* parent widget */
  425.            NULL);               /* terminate varargs list */  
  426.    XtSetSensitive(g_upy, FALSE);
  427.  
  428.    g_upz = XtVaCreateManagedWidget(
  429.            "g_upz",             /* widget name */
  430.            dialogWidgetClass,   /* widget class from Dialog.h */
  431.            gtform,              /* parent widget */
  432.            NULL);               /* terminate varargs list */  
  433.    XtSetSensitive(g_upz, FALSE);
  434.  
  435.    gbform = XtVaCreateManagedWidget(       
  436.            "gbform",            /* widget name */
  437.            formWidgetClass,     /* widget class from Form.h*/
  438.            gform,               /* parent widget */
  439.            NULL);               /* terminate varargs list */
  440.  
  441.    g_3d = XtVaCreateManagedWidget(
  442.            "g_3d",              /* widget name */
  443.            commandWidgetClass,  /* widget class from Command.h */
  444.            gbform,              /* parent widget */
  445.            NULL);               /* terminate varargs list */
  446.    XtAddCallback(g_3d, XtNcallback, G3D, NULL);
  447.  
  448.    g_proj = XtVaCreateManagedWidget(
  449.            "g_proj",            /* widget name */
  450.            commandWidgetClass,  /* widget class from Command.h */
  451.            gbform,              /* parent widget */
  452.            NULL);               /* terminate varargs list */
  453.    XtAddCallback(g_proj, XtNcallback, Proj, NULL);
  454.    XtSetSensitive(g_proj, FALSE);
  455.  
  456.    g_color = XtVaCreateManagedWidget(
  457.            "g_color",           /* widget name */
  458.            commandWidgetClass,  /* widget class from Command.h */
  459.            gbform,              /* parent widget */
  460.            NULL);               /* terminate varargs list */
  461.    XtAddCallback(g_color, XtNcallback, Color, NULL);
  462.  
  463.    glabel = XtVaCreateManagedWidget(
  464.            "glabel",            /* widget name */
  465.            labelWidgetClass,    /* widget class from Label.h */
  466.            gform,               /* parent widget */
  467.            NULL);               /* terminate varargs list */
  468.  
  469.    gram = XtVaCreateManagedWidget(
  470.            "gram",              /* widget name */
  471.            asciiTextWidgetClass,  /* widget class from AsciiText.h */
  472.            gform,               /* parent widget */
  473.            NULL);               /* terminate varargs list */  
  474.  
  475.    g_ok = XtVaCreateManagedWidget(
  476.            "g_ok",              /* widget name */
  477.            commandWidgetClass,  /* widget class from Command.h */
  478.            gform,               /* parent widget */
  479.            NULL);               /* terminate varargs list */
  480.    XtAddCallback(g_ok, XtNcallback, GOk, (XtPointer) gram);
  481.  
  482.    g_stop = XtVaCreateManagedWidget(
  483.            "g_stop",            /* widget name */
  484.            commandWidgetClass,  /* widget class from Command.h */
  485.            gform,               /* paarent widget class */
  486.            NULL);               /* terminate varargs list */
  487.    XtAddCallback(g_stop, XtNcallback, GStop, NULL);
  488.    XtSetSensitive(g_stop, FALSE);
  489.  
  490.    g_help = XtVaCreateManagedWidget(
  491.            "g_help",            /* widget name */
  492.            commandWidgetClass,  /* widget class from Command.h */
  493.            gform,               /* parent widget */
  494.            NULL);               /* terminate varargs list */
  495.    XtAddCallback(g_help, XtNcallback, Help, NULL);
  496.  
  497.  /***************************************************************/
  498.    buttonform = XtVaCreateManagedWidget(
  499.            "buttonform",        /* arbitrary widget name */
  500.            formWidgetClass,     /* widget class from Form.h */ 
  501.            paned,               /* parent widget */
  502.            NULL);               /* terminate varargs list */
  503.  
  504.    nextderiv = XtVaCreateManagedWidget(
  505.            "nextderiv",         /* arbitrary widget name */
  506.            commandWidgetClass,  /* widget class from Command.h */ 
  507.            buttonform,          /* parent widget */
  508.            NULL);               /* terminate varargs list */ 
  509.    XtAddCallback(nextderiv, XtNcallback, NextDeriv, NULL);
  510.    XtSetSensitive(nextderiv, FALSE);
  511.  
  512.    prevderiv = XtVaCreateManagedWidget(
  513.            "prevderiv",         /* arbitrary widget name */
  514.            commandWidgetClass,  /* widget class from Command.h */ 
  515.            buttonform,          /* parent widget */
  516.            NULL);               /* terminate varargs list */ 
  517.    XtAddCallback(prevderiv, XtNcallback, PrevDeriv, NULL);
  518.    XtSetSensitive(prevderiv, FALSE);
  519.  
  520.    singlesymbol = XtVaCreateManagedWidget(
  521.            "singlesymbol",      /* arbitrary widget name */
  522.            commandWidgetClass,  /* widget class from Command.h */ 
  523.            buttonform,          /* parent widget */
  524.            NULL);               /* terminate varargs list */ 
  525.    XtAddCallback(singlesymbol, XtNcallback, SingleSymbol, NULL);
  526.    XtSetSensitive(singlesymbol, FALSE);
  527.  
  528.    continuesymbol = XtVaCreateManagedWidget(
  529.            "continuesymbol",    /* arbitrary widget name */
  530.            commandWidgetClass,  /* widget class from Command.h */ 
  531.            buttonform,          /* parent widget */
  532.            NULL);               /* terminate varargs list */ 
  533.    XtAddCallback(continuesymbol, XtNcallback, ContinueSymbol, NULL);
  534.    XtSetSensitive(continuesymbol, FALSE);
  535.  
  536.    quit = XtVaCreateManagedWidget(
  537.            "quit",              /* arbitrary widget name */
  538.            commandWidgetClass,  /* widget class from Command.h */ 
  539.            buttonform,          /* parent widget */
  540.            NULL);               /* terminate varargs list */ 
  541.    XtAddCallback(quit, XtNcallback, Quit, NULL);
  542.  
  543.    load = XtVaCreateManagedWidget(
  544.            "load",              /* arbitrary widget name */
  545.            commandWidgetClass,  /* widget class from Command.h */ 
  546.            buttonform,          /* parent widget */
  547.            NULL);               /* terminate varargs list */ 
  548.    XtAddCallback(load, XtNcallback, Load, NULL);
  549.  
  550.    save = XtVaCreateManagedWidget(
  551.            "save",              /* arbitrary widget name */
  552.            commandWidgetClass,  /* widget class from Command.h */ 
  553.            buttonform,          /* parent widget */
  554.            NULL);               /* terminate varargs list */ 
  555.    XtAddCallback(save, XtNcallback, Save, NULL);
  556.    XtSetSensitive(save, FALSE);
  557.  
  558.   /*****************************************************************/
  559.  
  560.   /* Create windows for widgets and map them */
  561.   XtRealizeWidget(topLevel);
  562.  
  563.   /* Map popup Widget */
  564.   XtPopup(popup, XtGrabNone);
  565.  
  566.   /* Initialisieren der Pixmap und des GC zum Zeichnen in drawing */
  567.   init_drawing(topLevel, drawing);
  568.  
  569.  
  570.   /* Farbbildschirm, d.h. Farbpalette soll anwaehlbar sein */
  571.   if (DefaultDepth(display,screen) == 1)
  572.   {
  573.     XtSetSensitive(g_color, FALSE);
  574.   }
  575.  
  576.   init_color();
  577.  
  578.  
  579.   /* Default-Werte fuer die perspektivische Projektion */
  580.   persp_a  = 1000;
  581.   persp_x0 = 0;
  582.   persp_y0 = 0;
  583.  
  584.   /* Speicher fuer aktuelle Turtlewerte anlegen */
  585.   turtle = (TURTLE_VALUES *)malloc(sizeof(TURTLE_VALUES));
  586.   if (turtle == NULL)
  587.   {
  588.     fprintf(stderr, "Kein Speicher mehr frei!\n");
  589.     fprintf(stderr, "malloc-Aufruf in main\n");
  590.     exit(1);
  591.   }
  592.  
  593.   /* Berechnen der Sinus-/Cosinus-Werte fuer eine Tabelle */
  594.   for (i=0; i<361; i++)
  595.   {
  596.     winkel = i * PI /180;
  597.     SI[i] = sin(winkel);
  598.     CO[i] = cos(winkel);
  599.   }
  600.  
  601.   SI[0]   = 0.0; SI[30]  = 0.5;  SI[90]  = 1.0;  SI[150] = 0.5; 
  602.   SI[180] = 0.0; SI[210] = -0.5; SI[270] = -1.0; SI[330] = -0.5; 
  603.   SI[360] = 0.0;
  604.  
  605.   CO[0]   = 1.0;  CO[60]  = 0.5;  CO[90]  = 0; CO[120] = -0.5;
  606.   CO[180] = -1.0; CO[240] = -0.5; CO[270] = 0; CO[300] = 0.5;
  607.   CO[360] = 1.0;
  608.  
  609.  
  610.   /* Loop for events */
  611.    XtAppMainLoop(app_context);
  612. } 
  613.  
  614. /* end of main */
  615.  
  616.  
  617. /*************************************************************************/
  618. /* Function Name: RestorePicture
  619.  * Description: Erneuert das Bild in drawing nach einem Expose-Event
  620.  * Arguments: w           - drawing
  621.  *            client_data - NULL
  622.  *            event       - ExposeEvent
  623.  * Globals: display
  624.  *          draw_pixmap
  625.  *          draw_gc
  626.  *          draw_width
  627.  *          draw_height
  628.  * Returns: none
  629.  */
  630.  
  631. void RestorePicture(w, client_data, event)
  632. Widget w;
  633. XtPointer client_data;
  634. XEvent *event;
  635. {
  636.   XCopyArea(display, draw_pixmap, XtWindow(w), draw_gc,
  637.             0,0, (int)draw_width, (int)draw_height, 0,0);
  638. }
  639.  
  640. /*************************************************************************/
  641. /* Function Name: Dummy
  642.  * Description: "do nothing"
  643.  * Arguments: unused
  644.  */
  645.  
  646. /* ARGSUSED */
  647. void Dummy(w, client_data, call_data)
  648. Widget w;
  649. XtPointer client_data, call_data;
  650. {
  651.   /* do nothing */
  652. }
  653.  
  654. /*************************************************************************/
  655. /* Function Name: syntax
  656.  * Description: prints the unknown arguments for this function.
  657.  * Arguments: app_context
  658.  *            call - the name of the application
  659.  */
  660.  
  661. /* ARGSUSED */
  662. void syntax(app_context, call)
  663. XtAppContext app_context;
  664. char *call;
  665. {
  666.   XtDestroyApplicationContext(app_context);
  667.   fprintf(stderr, " Argument(e) unbekannt: %s\n", call);
  668.   exit(1);
  669. }
  670.  
  671. /*************************************************************************/
  672. /* Function Name: Help
  673.  * Description: Oeffnet ein Fenster, das einen Helptext und einen OK-Button
  674.  *              zum Beenden den Hilfe enthaelt.
  675.  *              Button help wird "insensitive" gesetzt.
  676.  * Arguments: w - Widget, das Callback ausgeloest hat
  677.  */
  678.  
  679. /* ARGSUSED */
  680. void Help(w, client_data, call_data)
  681. Widget w;
  682. XtPointer client_data, call_data;
  683. {
  684.   Widget popup,
  685.          helpform,
  686.          helptext,
  687.          helpok;
  688.  
  689.   popup = XtVaCreatePopupShell(
  690.           "lgrammar_help",           /* widget name */
  691.           topLevelShellWidgetClass,  /* widget class from Shell.h */
  692.           w,                         /* parent widget */   
  693.           NULL);                     /* terminate varargs list */
  694.  
  695.   helpform = XtVaCreateManagedWidget(
  696.           "helpform",                /* widget name */
  697.           formWidgetClass,           /* widget class from Form.h */
  698.           popup,                     /* parent widget */
  699.           NULL);                     /* terminate varargs list */
  700.  
  701.   helptext = XtVaCreateManagedWidget(
  702.           "helptext",                /* widget name */
  703.           asciiTextWidgetClass,      /* widget class from AsciiText.h */
  704.           helpform,                  /* parent widget */
  705.           NULL);                     /* terminate varargs list */
  706.  
  707.   helpok = XtVaCreateManagedWidget(
  708.           "helpok",                  /* widget name */
  709.           commandWidgetClass,        /* widget class from Command.h */
  710.           helpform,                  /* parent widget */
  711.           NULL);                     /* terminate varargs list */
  712.   XtAddCallback(helpok, XtNcallback, HelpOk, NULL);
  713.  
  714.   XtSetSensitive(w, FALSE);
  715.  
  716.   XtPopup(popup, XtGrabNone);
  717. }
  718.  
  719. /*************************************************************************/
  720. /* Function Name: HelpOk
  721.  * Description: schliest das Help-Fenster und setzt den Button fuer Help
  722.  *              wieder auf "sensitive" 
  723.  * Arguments: w - Widget, das den Callback ausgeloest hat
  724.  */
  725.  
  726. /* ARGSUSED */
  727. void HelpOk(w, client_data, call_data)
  728. Widget w;
  729. XtPointer client_data, call_data;
  730. {
  731.   Widget popup = XtParent(XtParent(w));
  732.   Widget button  = XtParent(popup);
  733.  
  734.   XtSetSensitive(button, TRUE);
  735.   XtDestroyWidget(popup);
  736. }
  737.  
  738. /*************************************************************************/
  739. /* Function Name: G3D
  740.  * Description: 
  741.  * Arguments: w - Widget, das den Callback ausgeloest hat
  742.  * Globals: a lot
  743.  */
  744.  
  745. /* ARGSUSED */
  746. void G3D(w, client_data, call_data)
  747. Widget w;
  748. XtPointer client_data, call_data;
  749. {
  750.   String s_label;
  751.  
  752.   /* bestehende Beschriftung lesen */
  753.   XtVaGetValues(w, XtNlabel, &s_label, NULL);
  754.   if (strcmp(s_label, "2D") == 0)
  755.   {
  756.     /* neue Beschriftung = 3D */
  757.     XtVaSetValues(w, XtNlabel, "3D", NULL);
  758.  
  759.     XtSetSensitive(g_posz, TRUE);
  760.     XtSetSensitive(g_headz, TRUE);
  761.     XtSetSensitive(g_leftx, TRUE);
  762.     XtSetSensitive(g_lefty, TRUE);
  763.     XtSetSensitive(g_leftz, TRUE);
  764.     XtSetSensitive(g_upx, TRUE);
  765.     XtSetSensitive(g_upy, TRUE);
  766.     XtSetSensitive(g_upz, TRUE);
  767.     XtSetSensitive(g_proj, TRUE);
  768.   }
  769.   else
  770.   {
  771.     /* neue Beschriftung = 2D */
  772.     XtVaSetValues(w, XtNlabel, "2D", NULL);
  773.  
  774.     XtSetSensitive(g_posz, FALSE);
  775.     XtSetSensitive(g_headz, FALSE);
  776.     XtSetSensitive(g_leftx, FALSE);
  777.     XtSetSensitive(g_lefty, FALSE);
  778.     XtSetSensitive(g_leftz, FALSE);
  779.     XtSetSensitive(g_upx, FALSE);
  780.     XtSetSensitive(g_upy, FALSE);
  781.     XtSetSensitive(g_upz, FALSE);
  782.     XtSetSensitive(g_proj, FALSE);
  783.   }
  784. }
  785.  
  786. /*************************************************************************/
  787. /* Function Name: Proj
  788.  * Description: 
  789.  * Arguments: w - Widget, das den callback ausgeloest hat
  790.  * Globals: a lot
  791.  */
  792.  
  793. /* ARGSUSED */
  794. void Proj(w, client_data, call_data)
  795. Widget w;
  796. XtPointer client_data, call_data;
  797. {
  798.   Widget popup,
  799.          projform,
  800.          projok,
  801.          projcancel;
  802.  
  803.   char *str;
  804.   Arg args[2];
  805.  
  806.   popup = XtVaCreatePopupShell( 
  807.           "lgrammar_proj",           /* widget name */
  808.           topLevelShellWidgetClass,  /* widget class from Shell.h */
  809.           w,                         /* parent widget */   
  810.           NULL);                     /* terminate varargs list */
  811.  
  812.   projform = XtVaCreateManagedWidget(
  813.           "projform",                /* widget name */
  814.           formWidgetClass,           /* widget class from Form.h */
  815.           popup,                     /* parent widget */
  816.           NULL);                     /* terminate varargs list */
  817.  
  818.   proj_x0 = XtVaCreateManagedWidget(
  819.           "proj_x0",                 /* widget name */
  820.           dialogWidgetClass,         /* widget class from Dialog.h */
  821.           projform,                  /* parent widget */
  822.           NULL);                     /* terminate varargs list */  
  823.  
  824.   proj_y0 = XtVaCreateManagedWidget(
  825.           "proj_y0",                 /* widget name */
  826.           dialogWidgetClass,         /* widget class from Dialog.h */
  827.           projform,                  /* parent widget */
  828.           NULL);                     /* terminate varargs list */  
  829.  
  830.   proj_a = XtVaCreateManagedWidget(
  831.           "proj_a",                  /* widget name */
  832.           dialogWidgetClass,         /* widget class from Dialog.h */
  833.           projform,                  /* parent widget */
  834.           NULL);                     /* terminate varargs list */  
  835.  
  836.   projok = XtVaCreateManagedWidget(
  837.           "projok",                  /* widget name */
  838.           commandWidgetClass,        /* widget class from Command.h */
  839.           projform,                  /* parent widget */
  840.           NULL);                     /* terminate varargs list */
  841.   XtAddCallback(projok, XtNcallback, ProjOk, NULL);
  842.  
  843.   projcancel = XtVaCreateManagedWidget(
  844.           "projcancel",              /* widget name */
  845.           commandWidgetClass,        /* widget class from Command.h */
  846.           projform,                  /* parent widget */
  847.           NULL);                     /* terminate varargs list */
  848.   XtAddCallback(projcancel, XtNcallback, ProjCancel, NULL);
  849.  
  850.   XtSetSensitive(w, FALSE);
  851.  
  852.   XtPopup(popup, XtGrabNonexclusive);
  853.  
  854.   /* in Popup aktuelle Werte von persp_a, persp_x0 und persp_y0 anzeigen */ 
  855.   str = (char *)malloc(5*sizeof(char));
  856.   if (str == NULL)
  857.   {
  858.     fprintf(stderr, "Kein Speicher mehr frei!\n");
  859.     fprintf(stderr, "malloc-Aufruf in Proj\n");
  860.     exit(1);
  861.   }
  862.  
  863.   sprintf(str, "%d", persp_x0);
  864.   XtSetArg(args[0], XtNvalue, str);
  865.   XtSetValues(proj_x0, args, ONE);
  866.  
  867.   sprintf(str, "%d", persp_y0);
  868.   XtSetArg(args[0], XtNvalue, str);
  869.   XtSetValues(proj_y0, args, ONE);
  870.  
  871.   sprintf(str, "%d", persp_a);
  872.   XtSetArg(args[0], XtNvalue, str);
  873.   XtSetValues(proj_a, args, ONE);
  874.  
  875.   free(str);
  876. }
  877.  
  878. /*************************************************************************/
  879. /* Function Name: ProjOk
  880.  * Description: 
  881.  * Arguments: w - Widget, das den Callback ausgeloest hat
  882.  * Globals: 
  883.  */
  884.  
  885. /* ARGSUSED */
  886. void ProjOk(w, client_data, call_data)
  887. Widget w;
  888. XtPointer client_data, call_data;
  889. {
  890.   Widget popup = XtParent(XtParent(w));
  891.   Widget button = XtParent(popup);
  892.  
  893.   String s_value;
  894.  
  895.   /* Einlesen der eingegeben Werte in Proj */
  896.  
  897.   XtVaGetValues(proj_x0, XtNvalue, &s_value, NULL);
  898.   persp_x0 = (int)(atof(s_value));
  899.  
  900.   XtVaGetValues(proj_y0, XtNvalue, &s_value, NULL);
  901.   persp_y0 = (int)(atof(s_value));
  902.  
  903.   XtVaGetValues(proj_a, XtNvalue, &s_value, NULL);
  904.   persp_a = (double)(atof(s_value));
  905.  
  906.   XtSetSensitive(button, TRUE);
  907.   XtDestroyWidget(popup);
  908. }
  909.  
  910. /*************************************************************************/
  911. /* Function Name: ProjCancel
  912.  * Description: 
  913.  * Arguments: w - Widget, das den Callback ausgeloest hat
  914.  */
  915.  
  916. /* ARGSUSED */
  917. void ProjCancel(w, client_data, call_data)
  918. Widget w;
  919. XtPointer client_data, call_data;
  920. {
  921.   Widget popup = XtParent(XtParent(w));
  922.   Widget button = XtParent(popup);
  923.  
  924.   XtSetSensitive(button, TRUE);
  925.   XtDestroyWidget(popup);
  926. }
  927.  
  928. /*************************************************************************/
  929. /* Function Name: GOk
  930.  * Description: 
  931.  * Arguments: 
  932.  * Globals: 
  933.  * Returns: 
  934.  */
  935.  
  936. /* ARGSUSED */
  937. void GOk(w, client_data, call_data)
  938. Widget w;
  939. XtPointer client_data, call_data;
  940. {
  941.   Widget eingabe = (Widget) client_data;
  942.   String str_eingabe;           /* liest Grammatik ein */
  943.  
  944.   int fehler = 0;               /* Klammersetzung korrekt ? */
  945.  
  946.   Widget gfehler,               /* Popup-Fenster fuer falsche Klammern */
  947.          gfehlerlabel;          /* Fehlermeldung */
  948.   Position x, y;                /* Postion des Popups */
  949.   Dimension width, height;      /* Groesse des Popups */
  950.   Widget topLevel = XtParent(XtParent(XtParent(w)));
  951.  
  952.   String s_value;
  953.  
  954.   Arg arg[1];
  955.   char newlabel[BUFSIZ];
  956.  
  957.   char text[3];  /* Label fuer g_3d, wechselt zwischen 2D und 3D */
  958.  
  959.  
  960.   XtSetSensitive(g_stop, FALSE);
  961.  
  962.   XtVaGetValues(eingabe, XtNstring,&str_eingabe,NULL);
  963.   if (strlen(str_eingabe) < 1)
  964.   {
  965.     /* zu wenig Zeichen fuer eine Grammatik */
  966.   }
  967.   else
  968.   {
  969.     /* Index bzw. Zusatz auf korrekte '<','>' pruefen, Klammern pruefen */
  970.     fehler = klammern_pruefen (str_eingabe);
  971.  
  972.     if (fehler == 0)
  973.     {
  974.       if (grammar)
  975.       {
  976.         /* bestehende grammar loeschen */
  977.         grammar = delete_grammarlist(grammar);
  978.       }
  979.       /* grammar aufbauen */
  980.       grammar = init_grammar(str_eingabe);
  981.  
  982.       if (grammar != NULL)
  983.       {
  984.         /* Klammerung in Grammatik testen */
  985.         fehler = klammerung(grammar);
  986.       }
  987.       else
  988.       {
  989.         /* Grammatik fehlerhaft */
  990.         fehler = 10;
  991.       }
  992.  
  993.       if (fehler == 0)
  994.       {
  995.         /* Wahrscheinlichkeiten ueberpruefen */
  996.         fehler = test_wk(grammar);
  997.       }
  998.     }
  999.  
  1000.     switch (fehler)
  1001.     {
  1002.     case 0:
  1003.  
  1004.        sprintf(newlabel, "Grammar:");
  1005.        XtSetArg(arg[0], XtNlabel, newlabel);
  1006.        XtSetValues(glabel, arg, ONE);
  1007.  
  1008.        /* Axiom ausgeben */
  1009.        if (word)
  1010.        {
  1011.          /* bestehendes word wird geloescht */
  1012.          word = delete_wordlist(word);
  1013.        }
  1014.        /* word mit Axiom initialisieren */
  1015.        init_word();
  1016.        display_word();
  1017.  
  1018.        /* Zahl der Ableitungen ausgeben */
  1019.        count_deriv = 0;
  1020.        display_deriv();
  1021.  
  1022.        color_index = 0;
  1023.  
  1024.        /* Einlesen der eingegeben Werte in die Struktur turtle */
  1025.        XtVaGetValues(g_posx, XtNvalue, &s_value, NULL);
  1026.        turtle->pos.x = (double)(atof(s_value));
  1027.  
  1028.        XtVaGetValues(g_posy, XtNvalue, &s_value, NULL);
  1029.        turtle->pos.y = (double)(atof(s_value));
  1030.  
  1031.        XtVaGetValues(g_posz, XtNvalue, &s_value, NULL);
  1032.        turtle->pos.z = (double)(atof(s_value));
  1033.  
  1034.        XtVaGetValues(g_headx, XtNvalue, &s_value, NULL);
  1035.        turtle->h.x = (double)(atof(s_value));
  1036.  
  1037.        XtVaGetValues(g_heady, XtNvalue, &s_value, NULL);
  1038.        turtle->h.y = (double)(atof(s_value));
  1039.  
  1040.        XtVaGetValues(g_headz, XtNvalue, &s_value, NULL);
  1041.        turtle->h.z = (double)(atof(s_value));
  1042.  
  1043.        XtVaGetValues(g_leftx, XtNvalue, &s_value, NULL);
  1044.        turtle->l.x = (double)(atof(s_value));
  1045.  
  1046.        XtVaGetValues(g_lefty, XtNvalue, &s_value, NULL);
  1047.        turtle->l.y = (double)(atof(s_value));
  1048.  
  1049.        XtVaGetValues(g_leftz, XtNvalue, &s_value, NULL);
  1050.        turtle->l.z = (double)(atof(s_value));
  1051.  
  1052.        XtVaGetValues(g_upx, XtNvalue, &s_value, NULL);
  1053.        turtle->u.x = (double)(atof(s_value));
  1054.  
  1055.        XtVaGetValues(g_upy, XtNvalue, &s_value, NULL);
  1056.        turtle->u.y = (double)(atof(s_value));
  1057.   
  1058.        XtVaGetValues(g_upz, XtNvalue, &s_value, NULL);
  1059.        turtle->u.z = (double)(atof(s_value));
  1060.  
  1061.        XtVaGetValues(g_angle, XtNvalue, &s_value, NULL);
  1062.        turtle->angle = (double)(atof(s_value));
  1063.  
  1064.        XtVaGetValues(g_length, XtNvalue, &s_value, NULL);
  1065.        turtle->length = atoi(s_value);
  1066.  
  1067.        XtVaGetValues(g_scale, XtNvalue, &s_value, NULL);
  1068.        turtle->scale = (double)(atof(s_value));
  1069.  
  1070.  
  1071.        /* Test, ob 2D- oder 3D-Symbole in der Grammatik enthalten sind */
  1072.        dimens = test_dimens(str_eingabe);
  1073.        if (dimens == 3)
  1074.        {
  1075.          turtle_3D(drawing, count_deriv, turtle);
  1076.  
  1077.          sprintf(text, "3D");
  1078.          XtSetArg(arg[0], XtNlabel, text);
  1079.          XtSetValues(g_3d, arg, ONE);
  1080.  
  1081.          XtSetSensitive(g_posz, TRUE);
  1082.          XtSetSensitive(g_headz, TRUE);
  1083.          XtSetSensitive(g_leftx, TRUE);
  1084.          XtSetSensitive(g_lefty, TRUE);
  1085.          XtSetSensitive(g_leftz, TRUE);
  1086.          XtSetSensitive(g_upx, TRUE);  
  1087.          XtSetSensitive(g_upy, TRUE);  
  1088.          XtSetSensitive(g_upz, TRUE);
  1089.          XtSetSensitive(g_proj, TRUE);
  1090.        }
  1091.        else
  1092.        {
  1093.          turtle_2D(drawing, count_deriv, turtle);
  1094.  
  1095.          sprintf(text, "2D");
  1096.          XtSetArg(arg[0], XtNlabel, text);
  1097.          XtSetValues(g_3d, arg, ONE);
  1098.  
  1099.          XtSetSensitive(g_posz, FALSE);
  1100.          XtSetSensitive(g_headz, FALSE);
  1101.          XtSetSensitive(g_leftx, FALSE);
  1102.          XtSetSensitive(g_lefty, FALSE);
  1103.          XtSetSensitive(g_leftz, FALSE);
  1104.          XtSetSensitive(g_upx, FALSE);
  1105.          XtSetSensitive(g_upy, FALSE);
  1106.          XtSetSensitive(g_upz, FALSE);
  1107.          XtSetSensitive(g_proj, FALSE);
  1108.        }
  1109.  
  1110.        XtSetSensitive(nextderiv, TRUE);
  1111.        XtSetSensitive(prevderiv, FALSE);
  1112.        XtSetSensitive(singlesymbol, TRUE);
  1113.        XtSetSensitive(continuesymbol, FALSE);
  1114.        XtSetSensitive(save, TRUE);
  1115.  
  1116.        break;
  1117.  
  1118.  
  1119.     case 1: /* Klammersetzung nicht in Ordnung, Meldung ausgeben */
  1120.  
  1121.        /* get the coordinates of the button widget */
  1122.        XtVaGetValues(w,
  1123.               XtNwidth, &width,
  1124.               XtNheight, &height,
  1125.               NULL);
  1126.  
  1127.        /* translate coords in application button window 
  1128.         * into coords from root window */
  1129.        XtTranslateCoords(w,           /* Widget */
  1130.               (Position) (width-5),   /* x */
  1131.               (Position) (height-50), /* y */
  1132.               &x, &y);                /* coords on root window */
  1133.  
  1134.        gfehler = XtVaCreatePopupShell(
  1135.                  "gfehler",                 /* widget name */
  1136.                  overrideShellWidgetClass,  /* widget class from Shell.h */
  1137.                  w,                         /* parent widget */
  1138.                  NULL);                     /* terminate varargs list */
  1139.  
  1140.        /* move popup shell to this position */
  1141.        XtVaSetValues(gfehler,
  1142.               XtNx, x,
  1143.               XtNy, y,
  1144.               NULL);
  1145.  
  1146.        gfehlerlabel = XtVaCreateManagedWidget(
  1147.                    "Klammersetzung!",    /* widget name */
  1148.                    commandWidgetClass,   /* widget class from Command.h */
  1149.                    gfehler,              /* parent widget */
  1150.                    NULL);                /* terminate varargs list */
  1151.        XtAddCallback(gfehlerlabel, XtNcallback, Fehler, NULL);
  1152.  
  1153.        XtSetSensitive(XtParent(gfehler),FALSE);
  1154.        XtPopup(gfehler, XtGrabNonexclusive);
  1155.        XBell(XtDisplay(topLevel), 0);
  1156.        break;
  1157.  
  1158.     case 10: /* Grammatik nicht in Ordnung */
  1159.        sprintf(newlabel, "GRAMMAR: Check '='");
  1160.        XtSetArg(arg[0], XtNlabel, newlabel);
  1161.        XtSetValues(glabel, arg, ONE);
  1162.        XBell(XtDisplay(topLevel), 0);
  1163.        break;
  1164.  
  1165.     case 20: /* Wahrscheinlichkeitsangaben nicht in Ordnung */
  1166.        sprintf(newlabel, "GRAMMAR: Check probabilities");
  1167.        XtSetArg(arg[0], XtNlabel, newlabel);
  1168.        XtSetValues(glabel, arg, ONE);
  1169.        XBell(XtDisplay(topLevel), 0);
  1170.        break;
  1171.  
  1172.       break;
  1173.  
  1174.     } /* end of switch */
  1175.   } /* end of else */
  1176. } /* end of G_ok */
  1177.  
  1178. /*************************************************************************/
  1179. /* Function Name: display_deriv
  1180.  * Description: 
  1181.  * Arguments: 
  1182.  * Globals: 
  1183.  * Returns: 
  1184.  */
  1185.  
  1186. void display_deriv()
  1187. {
  1188.   char text[5];
  1189.  
  1190.   sprintf(text, "%d", count_deriv);
  1191.   XtVaSetValues(wderiv, XtNlabel, text, NULL);
  1192. }
  1193.  
  1194. /*************************************************************************/
  1195. /* Function Name: display_word
  1196.  * Description: 
  1197.  * Arguments: 
  1198.  * Globals: 
  1199.  * Returns: 
  1200.  */
  1201.  
  1202. void display_word()
  1203. {
  1204.   str[0] = XtNewString((String *)word_to_string(word, current_symbol));
  1205.   XawListChange(wlist, str, 1, 0, TRUE);
  1206. }
  1207.  
  1208. /*************************************************************************/
  1209. /* Function Name: Fehler
  1210.  * Description: 
  1211.  * Arguments: 
  1212.  * Globals: 
  1213.  * Returns: 
  1214.  */
  1215.  
  1216. /* ARGSUSED */
  1217. void Fehler(w, client_data, call_data)
  1218. Widget w;
  1219. XtPointer client_data, call_data;
  1220. {
  1221.   Widget popup = XtParent(w);
  1222.   Widget button = XtParent(popup);
  1223.  
  1224.   XtSetSensitive(button, TRUE);
  1225.  
  1226.   XtDestroyWidget(popup);
  1227. }
  1228.  
  1229. /*************************************************************************/
  1230. /* Function Name: GStop
  1231.  * Description: 
  1232.  * Arguments: 
  1233.  * Globals: 
  1234.  * Returns: 
  1235.  */
  1236.  
  1237. /* ARGSUSED */
  1238. void GStop(w, client_data, call_data)
  1239. Widget w;
  1240. XtPointer client_data, call_data;
  1241. {
  1242.   anhalten = TRUE;
  1243. }
  1244.  
  1245. /*************************************************************************/
  1246. /* Function Name: NextDeriv
  1247.  * Description: 
  1248.  * Arguments: 
  1249.  * Globals: 
  1250.  * Returns: 
  1251.  */
  1252.  
  1253. /* ARGSUSED */
  1254. void NextDeriv(w, client_data, call_data)
  1255. Widget w;
  1256. XtPointer client_data,
  1257.           call_data; 
  1258. {
  1259.   count_deriv ++;
  1260.   display_deriv();
  1261.  
  1262.   ableitung_wort();
  1263.   display_word();
  1264.  
  1265.  
  1266.   XtSetSensitive(prevderiv, TRUE);
  1267.  
  1268.   if (dimens == 3)
  1269.   {
  1270.     turtle_3D(drawing, count_deriv, turtle);
  1271.   }
  1272.   else
  1273.   {
  1274.     turtle_2D(drawing, count_deriv, turtle);
  1275.   }
  1276. }
  1277.  
  1278. /*************************************************************************/
  1279. /* Function Name: PrevDeriv
  1280.  * Description: 
  1281.  * Arguments: 
  1282.  * Globals: 
  1283.  * Returns: 
  1284.  */
  1285.  
  1286. /* ARGSUSED */
  1287. void PrevDeriv(w, client_data, call_data)
  1288. Widget w;
  1289. XtPointer client_data, call_data;
  1290. {
  1291.   int i;
  1292.  
  1293.   count_deriv--;
  1294.   display_deriv();
  1295.  
  1296.   word = delete_wordlist(word);
  1297.   init_word();
  1298.  
  1299.   for (i=0; i<count_deriv; i++)
  1300.   {
  1301.     ableitung_wort();
  1302.   }
  1303.   display_word();
  1304.  
  1305.   if (count_deriv < 1)
  1306.   {
  1307.     XtSetSensitive(prevderiv, FALSE);
  1308.   }
  1309.  
  1310.   if (dimens == 3)
  1311.   {
  1312.     turtle_3D(drawing, count_deriv, turtle);
  1313.   }
  1314.   else
  1315.   {
  1316.     turtle_2D(drawing, count_deriv, turtle);
  1317.   }
  1318. }
  1319.  
  1320. /*************************************************************************/
  1321. /* Function Name: SingleSymbol
  1322.  * Description: 
  1323.  * Arguments: 
  1324.  * Globals: 
  1325.  * Returns: 
  1326.  */
  1327.  
  1328. /* ARGSUSED */
  1329. void SingleSymbol(w, client_data, call_data)
  1330. Widget w;
  1331. XtPointer client_data, call_data;
  1332. {
  1333.   if (word == current_symbol)
  1334.   {
  1335.     count_deriv ++;
  1336.     display_deriv();
  1337.   }
  1338.  
  1339.   ableitung_symbol();
  1340.   display_word();
  1341.  
  1342.   if(word != current_symbol)
  1343.   {
  1344.     XtSetSensitive(nextderiv, FALSE);
  1345.     XtSetSensitive(prevderiv, FALSE);
  1346.     XtSetSensitive(continuesymbol, TRUE);
  1347.   }
  1348.   else
  1349.   {
  1350.     XtSetSensitive(nextderiv, TRUE);
  1351.     XtSetSensitive(prevderiv, TRUE);
  1352.     XtSetSensitive(continuesymbol, FALSE);
  1353.   }
  1354.  
  1355.   if (dimens == 3)
  1356.   {
  1357.     turtle_3D(drawing, count_deriv, turtle);
  1358.   }
  1359.   else
  1360.   {
  1361.     turtle_2D(drawing, count_deriv, turtle);
  1362.   }
  1363. }
  1364.  
  1365. /*************************************************************************/
  1366. /* Function Name: ContinueSymbol
  1367.  * Description: 
  1368.  * Arguments: 
  1369.  * Globals: 
  1370.  * Returns: 
  1371.  */
  1372.  
  1373. /* ARGSUSED */
  1374. void ContinueSymbol(w, client_data, call_data)
  1375. Widget w;
  1376. XtPointer client_data, call_data;
  1377. {
  1378.   while (word != current_symbol)
  1379.   {
  1380.     ableitung_symbol();
  1381.   }
  1382.   display_word();
  1383.  
  1384.   XtSetSensitive(nextderiv, TRUE);
  1385.   XtSetSensitive(prevderiv, TRUE);
  1386.   XtSetSensitive(continuesymbol,FALSE);
  1387.  
  1388.   if (dimens == 3)
  1389.   {
  1390.     turtle_3D(drawing, count_deriv, turtle);
  1391.   }
  1392.   else
  1393.   {
  1394.     turtle_2D(drawing, count_deriv, turtle);
  1395.   }
  1396. }
  1397.  
  1398. /*************************************************************************/
  1399. /* Function Name: Save
  1400.  * Description: 
  1401.  * Arguments: 
  1402.  * Globals: 
  1403.  * Returns: 
  1404.  */
  1405.  
  1406. /* ARGSUSED */
  1407. void Save(w, client_data, call_data)
  1408. Widget w;
  1409. XtPointer client_data, call_data;
  1410. {
  1411.   Widget popup,
  1412.          saveform,
  1413.          saveok,
  1414.          savecancel,
  1415.          saveimage,
  1416.          saveobj;
  1417.  
  1418.  
  1419.   char dirname[MAXPATHLEN];  /* Name des aktuellen Verzeichnisses */
  1420.  
  1421.   popup = XtVaCreatePopupShell(
  1422.           "lgrammar_save",           /* widget name */
  1423.           topLevelShellWidgetClass,  /* widget class from Shell.h */
  1424.           w,                         /* parent widget */   
  1425.           NULL);                     /* terminate varargs list */
  1426.  
  1427.   saveform = XtVaCreateManagedWidget(
  1428.           "saveform",           /* widget name */
  1429.           formWidgetClass,      /* widget class from Form.h */
  1430.           popup,                /* parent widget */
  1431.           NULL);                /* terminate varargs list */
  1432.  
  1433.   savesett = XtVaCreateManagedWidget(
  1434.           "savesett",           /* widget name */
  1435.           dialogWidgetClass,    /* widget class from Dialog.h */
  1436.           saveform,             /* parent widget */
  1437.           NULL);                /* terminate varargs list */
  1438.  
  1439.   saveok = XtVaCreateManagedWidget(
  1440.           "saveok",             /* widget name */
  1441.           commandWidgetClass,   /* widget class from Command.h */
  1442.           saveform,             /* parent widget */
  1443.           NULL);                /* terminate varargs list */
  1444.   XtAddCallback(saveok, XtNcallback, SaveOk, NULL);
  1445.  
  1446.   savecancel = XtVaCreateManagedWidget(
  1447.           "savecancel",         /* widget name */
  1448.           commandWidgetClass,   /* widget class from Command.h */
  1449.           saveform,             /* parent widget */
  1450.           NULL);                /* terminate varargs list */
  1451.   XtAddCallback(savecancel, XtNcallback, SaveCancel, NULL);
  1452.  
  1453.   saveimage = XtVaCreateManagedWidget(
  1454.           "saveimage",          /* widget name */
  1455.           commandWidgetClass,   /* widget class from Command.h */
  1456.           saveform,             /* parent widget */
  1457.           NULL);                /* terminate varargs list */
  1458.   XtAddCallback(saveimage, XtNcallback, SaveImage, NULL);
  1459.  
  1460.   saveobj = XtVaCreateManagedWidget(
  1461.           "saveobj",            /* widget name */
  1462.           commandWidgetClass,   /* widget class from Command.h */
  1463.           saveform,             /* parent widget */
  1464.           NULL);                /* terminate varargs list */
  1465.   XtAddCallback(saveobj, XtNcallback, SaveObj, NULL);
  1466.  
  1467.   getwd(dirname);
  1468.   if (dirname == NULL)
  1469.   {
  1470.     printf("getwd\n");
  1471.     exit(1);
  1472.   }
  1473.   XtVaSetValues(savesett, XtNvalue, dirname, NULL);
  1474.  
  1475.  
  1476.   XtSetSensitive(w, FALSE);
  1477.  
  1478.   XtPopup(popup, XtGrabNonexclusive);
  1479. }
  1480.  
  1481. /*************************************************************************/
  1482. /* Function Name: SaveSReturnOk
  1483.  * Description: 
  1484.  * Arguments: w - Widget, das den callback ausgeloest hat
  1485.  * Globals: 
  1486.  * Returns: 
  1487.  */
  1488.  
  1489. /*ARGSUSED*/
  1490. void SaveSReturnOk(w, event, params, num_params)
  1491. Widget w;        
  1492. XEvent *event;        
  1493. String *params;    
  1494. Cardinal *num_params;
  1495. {
  1496.   Widget dialog = XtParent(w);
  1497.  
  1498.   SaveOk(dialog, (XtPointer) dialog, (XtPointer) NULL);
  1499. }
  1500.  
  1501. /*************************************************************************/
  1502. /* Function Name: SaveOk
  1503.  * Description: 
  1504.  * Arguments: 
  1505.  * Globals: 
  1506.  * Returns: 
  1507.  */
  1508.  
  1509. /* ARGSUSED */
  1510. void SaveOk(w, client_data, call_data)
  1511. Widget w;
  1512. XtPointer client_data, call_data;
  1513. {
  1514.   Widget popup = XtParent(XtParent(w));
  1515.   Widget button = XtParent(popup);
  1516.  
  1517.   String settfname   = XawDialogGetValueString(savesett);
  1518.  
  1519.   String leer = "";
  1520.   int savenumber = 0;
  1521.  
  1522.   /* eingelesenen Filenamen vergleichen */
  1523.   if (strcmp(settfname,   leer) != 0) savenumber +=  1;
  1524.  
  1525.   switch (savenumber)
  1526.   {
  1527.   case 0: /* keine Filenamen angegeben */
  1528.  
  1529.      XtSetSensitive(button, TRUE);
  1530.      XtDestroyWidget(popup);
  1531.      break;
  1532.  
  1533.  
  1534.   case 1: /* Save Settings */
  1535.  
  1536.      save_settings_to_file(settfname);
  1537.      XtSetSensitive(button, TRUE);
  1538.      XtDestroyWidget(popup);
  1539.      break;
  1540.  
  1541.   } /*switch*/
  1542. }
  1543.  
  1544. /*************************************************************************/
  1545. /* Function Name: SaveCancel
  1546.  * Description: 
  1547.  * Arguments: 
  1548.  * Globals: 
  1549.  * Returns: 
  1550.  */
  1551.  
  1552. /* ARGSUSED */
  1553. void SaveCancel(w, client_data, call_data)
  1554. Widget w;
  1555. XtPointer client_data, call_data;
  1556. {
  1557.   Widget popup = XtParent(XtParent(w));
  1558.   Widget button = XtParent(popup);
  1559.  
  1560.   XtSetSensitive(button, TRUE);
  1561.   XtDestroyWidget(popup);
  1562. }
  1563.  
  1564. /*************************************************************************/
  1565. /* Function Name: SaveImage
  1566.  * Description: 
  1567.  * Arguments: 
  1568.  * Globals: 
  1569.  * Returns: 
  1570.  */
  1571.  
  1572. /* ARGSUSED */
  1573. void SaveImage(w, call_data, client_data)
  1574. Widget w;
  1575.  
  1576. XtPointer call_data, client_data;
  1577. {
  1578.   Widget popup = XtParent(XtParent(w));
  1579.   Widget button = XtParent(popup);
  1580.  
  1581.   String *cmd;
  1582.  
  1583.   cmd = (String *)malloc(100*sizeof(char));
  1584.   if (cmd == NULL)
  1585.   {
  1586.     fprintf(stdout,"Kein Speicher mehr frei\n");
  1587.     fprintf(stdout,"malloc-Aufruf in SaveImage\n");
  1588.   }
  1589.   sprintf(cmd, "xgrab");
  1590.   system(cmd);
  1591.   free(cmd);
  1592.  
  1593.   XtSetSensitive(button, TRUE);
  1594.   XtDestroyWidget(popup);
  1595. }
  1596.  
  1597. /*************************************************************************/
  1598. /* Function Name: Quit
  1599.  * Description: exits the application
  1600.  * Arguments: unused
  1601.  * Returns: none
  1602.  */
  1603.  
  1604. /* ARGSUSED */
  1605. void Quit(w, client_data, call_data)
  1606. Widget w;
  1607. XtPointer client_data, call_data;
  1608. {
  1609.   XtDestroyApplicationContext(XtWidgetToApplicationContext(w));
  1610.   exit(0);
  1611. }
  1612.  
  1613. /*************************************************************************/
  1614. /* Function Name: save_settings_to_file
  1615.  * Description: 
  1616.  * Arguments: 
  1617.  * Globals: 
  1618.  * Returns: 
  1619.  */
  1620.  
  1621. void save_settings_to_file(filename)
  1622. String filename;
  1623. {
  1624.   FILE *fp;
  1625.   String wert;
  1626.   char *str;
  1627.  
  1628.   int i;
  1629.  
  1630.   if ((fp = fopen(filename, "w")) == NULL)
  1631.   {
  1632.     fprintf(stderr, "Datei konnte nicht geoeffnet werden\n");
  1633.     fprintf(stderr, "fopen in save_settings_to_file\n");
  1634.     exit(1);
  1635.   }
  1636.  
  1637.   /* Einlesen der Farb-Palette */
  1638.   /* col_pal_name */
  1639.   fprintf(fp, "%s\n", col_pal_name);
  1640.  
  1641.  
  1642.   str = (char *)malloc(8 * sizeof(char));
  1643.   if (str == NULL)
  1644.   {
  1645.     fprintf(stderr, "Kein Speicher mehr frei!\n");
  1646.     fprintf(stderr, "malloc-Aufruf in save_settings_to_file\n");
  1647.     exit(1);
  1648.   }
  1649.  
  1650.   /* Einlesen der Farbreihenfolge in File fp */
  1651.   for (i=0; i<NOC; i++)
  1652.   {
  1653.     sprintf(str, "%d", owncolor[i].red);
  1654.     fprintf(fp, "%s ", str);
  1655.     sprintf(str, "%d", owncolor[i].green);
  1656.     fprintf(fp, "%s ", str);
  1657.     sprintf(str, "%d", owncolor[i].blue);
  1658.     fprintf(fp, "%s\n", str);
  1659.   }
  1660.  
  1661.   /* Einlesen der Turtledaten in File fp */
  1662.  
  1663.   /* g_posx */
  1664.   XtVaGetValues(g_posx, XtNvalue, &wert, NULL);
  1665.   fprintf(fp, "%s\n", wert);
  1666.  
  1667.   /* g_posy */
  1668.   XtVaGetValues(g_posy, XtNvalue, &wert, NULL);
  1669.   fprintf(fp, "%s\n", wert);
  1670.  
  1671.   /* g_posz */
  1672.   XtVaGetValues(g_posz, XtNvalue, &wert, NULL);
  1673.   fprintf(fp, "%s\n", wert);
  1674.  
  1675.   /* g_angle */
  1676.   XtVaGetValues(g_angle, XtNvalue, &wert, NULL);
  1677.   fprintf(fp, "%s\n", wert);
  1678.  
  1679.   /* g_length */
  1680.   XtVaGetValues(g_length, XtNvalue, &wert, NULL);
  1681.   fprintf(fp, "%s\n", wert);
  1682.  
  1683.   /* g_scale */
  1684.   XtVaGetValues(g_scale, XtNvalue, &wert, NULL);
  1685.   fprintf(fp, "%s\n", wert);
  1686.  
  1687.  
  1688.   /* g_headx */
  1689.   XtVaGetValues(g_headx, XtNvalue, &wert, NULL);
  1690.   fprintf(fp, "%s\n", wert);
  1691.       
  1692.   /* g_heady */
  1693.   XtVaGetValues(g_heady, XtNvalue, &wert, NULL);
  1694.   fprintf(fp, "%s\n", wert);
  1695.  
  1696.   /* g_headz */
  1697.   XtVaGetValues(g_headz, XtNvalue, &wert, NULL);
  1698.   fprintf(fp, "%s\n", wert);
  1699.  
  1700.   /* g_leftx */
  1701.   XtVaGetValues(g_leftx, XtNvalue, &wert, NULL);
  1702.   fprintf(fp, "%s\n", wert);
  1703.       
  1704.   /* g_lefty */
  1705.   XtVaGetValues(g_lefty, XtNvalue, &wert, NULL);
  1706.   fprintf(fp, "%s\n", wert);
  1707.  
  1708.   /* g_leftz */
  1709.   XtVaGetValues(g_leftz, XtNvalue, &wert, NULL);
  1710.   fprintf(fp, "%s\n", wert);
  1711.  
  1712.   /* g_upx */
  1713.   XtVaGetValues(g_upx, XtNvalue, &wert, NULL);
  1714.   fprintf(fp, "%s\n", wert);
  1715.       
  1716.   /* g_upy */
  1717.   XtVaGetValues(g_upy, XtNvalue, &wert, NULL);
  1718.   fprintf(fp, "%s\n", wert);
  1719.  
  1720.   /* g_upz */
  1721.   XtVaGetValues(g_upz, XtNvalue, &wert, NULL);
  1722.   fprintf(fp, "%s\n", wert);
  1723.  
  1724.  
  1725.   /* persp_x0 */
  1726.   sprintf(str, "%d", persp_x0);
  1727.   fprintf(fp, "%s\n", str);
  1728.  
  1729.   /* persp_y0 */
  1730.   sprintf(str, "%d", persp_y0);
  1731.   fprintf(fp, "%s\n", str);
  1732.  
  1733.   /* persp_a */
  1734.   sprintf(str, "%d", persp_a);
  1735.   fprintf(fp, "%s\n", str);
  1736.  
  1737.   free(str);
  1738.  
  1739.  
  1740.   /* gram */
  1741.   XtVaGetValues(gram, XtNstring, &wert, NULL);
  1742.   fprintf(fp, "%s\n", wert);
  1743.  
  1744.   if (fclose(fp))
  1745.   {
  1746.     fprintf(stderr, "Datei konnte nicht geschlossen werden\n");
  1747.     fprintf(stderr, "fclose in save_settings_to_file\n");
  1748.     exit(1);
  1749.   }
  1750. }
  1751.  
  1752. /*************************************************************************/
  1753. /*************************************************************************/
  1754. /*************************************************************************/
  1755. /* Function Name: 
  1756.  * Description: 
  1757.  * Arguments: 
  1758.  * Globals: 
  1759.  * Returns: 
  1760.  */
  1761.  
  1762. /*************************************************************************/
  1763.  
  1764.  
  1765.